home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib9 / v_11_04 / 1104070b < prev    next >
Encoding:
Text File  |  1995-11-01  |  580 b   |  40 lines
  1. /* mixcalc.c */
  2. /* Copyright 1992 by P.J. LaBrocca */
  3.  
  4. #include "mixed.h"
  5. #include "mixcalc.h"
  6. #include <stdio.h>
  7.  
  8. #ifdef __ZTC__        /* For Zortech Compiler */
  9.     _stack = 15000;
  10. #endif
  11.  
  12. enum token_value curr_tok;
  13.  
  14. void main()
  15. {
  16.     mixed_t ans;
  17.     mixed_t work;
  18.  
  19.     init_primes();
  20.  
  21.     mix_clear( &ans );
  22.     mix_init( &work, 3, 1, 7 );
  23.  
  24.     setjmp( startup );
  25.     M = &work;
  26.     while(1) {
  27.         printf("> ");
  28.         curr_tok = gettok();
  29.         if(curr_tok == END) {
  30.             break;
  31.         }
  32.         if(curr_tok == PRINT)
  33.             continue;
  34.         ans = expr( );
  35.  
  36.         mix_print( mix_reduce( &ans) );
  37.     }
  38. }
  39.  
  40.